home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / file viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  263 lines
  1. 10 on-(peek(24576)=173andpeek(25000)=76)goto220
  2. 20 c=7:x=42:poke53272,23:printchr$(147):poke53280,11:poke53281,12
  3. 30 for i=55296 to 55296+39:poke i,c:next
  4. 40 for i=55336 to 56216 step 40:poke i,c:next
  5. 50 for i=55375 to 56255 step 40:poke i,c:next
  6. 60 for i=56256 to 56256+39:poke i,c:next
  7. 70 for i=1024 to 1063:poke i,x:next
  8. 80 for i=1063 to 2023 step 40:poke i,x:next
  9. 90 for i=2023 to 1984 step-1:poke i,x:next
  10. 100 for i=1984 to 1024 step-40:poke i,x:next
  11. 110 printtab(91)"[144][204][207][193][196][211][212][193][210][160][208][210][197][211][197][206][212][211]"
  12. 120 printtab(91)"[213][204][212][210][193] [198][201][204][197]-[214][201][197][215][197][210]"
  13. 130 printtab(58)"by"
  14. 140 printtab(53)"[210].[215]. [194]ob [203]ober"
  15. 150 printtab(90)"([195]) [195]opyright  1987"
  16. 160 printtab(86)"[204][207][193][196][211][212][193][210] is [206][207][212] [208]ublic [196]omain"
  17. 170 printtab(83)"[208]lease respect the author's rights"
  18. 180 printtab(89)" [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [211][212][193][210][212] "
  19. 190 geta$:ifa$=""then190
  20. 200 print"[145]"tab(10)" [204]oading [205][204] [210]outines  "
  21. 210 load"file viewer.ml",8,1
  22. 220 md=24576:sp=25856:gp=25918:oc=25992:cc=25995:cr=26230:ww=26357:rp=26394
  23. 230 poke53280,.:poke53281,.:poke788,52:dima$(112):printchr$(142):so=26721:ez=26812
  24. 240 s=1:a=0
  25. 250 print"[147][158]":k=7:a$="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":gosub310
  26. 260 k=8:a$="[221]    ultra seq-print    [221]":gosub310
  27. 270 k=9:a$="[221]      version 5.6      [221]":gosub310
  28. 280 k=10:a$="[221]     r.w. bob kober    [221]":gosub310
  29. 290 k=11:a$="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":gosub310
  30. 300 goto460
  31. 310 m=len(a$):fori=1tom/2:print"":forj=1tok:print"";:next
  32. 320 printspc(20-i)left$(a$,i)right$(a$,i):next
  33. 330 return
  34. 450 poke150,160:sysgp:poke198,.:wait198,1:poke198,.
  35. 460 poke53280,.:poke53281,.
  36. 470 syscc:poke53272,21:print"[147]"tab(8)"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  37. 480 printtab(8)"[221]      main menu      [221]"
  38. 490 printtab(8)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  39. 500 fori=1to300:next:poke2,5:poke878,20:sysoc
  40. 510 ifbobthenpoke150,168:sysgp:goto700
  41. 520 printtab(43)"use <<-- embedded (cr) -->> ignore"
  42. 530 printtab(2)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  43. 540 printtab(3)"[158][169]  [223][146][150]                         [158][129][169]  [223][155][146]"
  44. 550 printtab(3)"[158] f1 [146][150]  send output to screen  [129] f2 [146]"
  45. 560 printtab(3)"[158][223]  [146][169][150]                        [158] [129][223]  [146][169]"
  46. 570 printtab(42)"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  47. 580 printtab(3)"[149][169]  [223][146]                         [156][169]  [223]"
  48. 590 printtab(3)"[149] f3 [146]  [154]40 columns to printer  [156] f4 [146]"
  49. 600 printtab(3)"[149][223]  [146][169]                         [156][223]  [146][169]"
  50. 610 printtab(42)"[153][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  51. 620 printtab(3)"[152][169]  [223][146]                         [150][169]  [223]"
  52. 630 printtab(3) "[152] f5 [146] [153] 80 columns to printer  [150] f6 [146]"
  53. 640 printtab(3)"[152][223]  [146][169]                         [150][223]  [146][169]"
  54. 650 printtab(42)"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  55. 660 printtab(3)"[169]  [223][146]                         [169]  [223]"
  56. 670 printtab(3) " f7 [146][156] disk housekeeping  [129]quit  f8 [146]"
  57. 680 printtab(3)"[223]  [146][169]                         [223]  [146][169]"
  58. 690 ifbo=0thenbob=1:poke150,168:syssp
  59. 700 poke198,.:close15:open15,8,15:goto2490
  60. 710 geta$:on-(a$="a")goto1200:on-(a$="s")goto2480:ifa$<"[133]"ora$>chr$(141)then710
  61. 720 f$=right$(str$(asc(a$)-132),1)
  62. 730 on(asc(a$)-132)goto740,760,780,1500,750,770,790,1440,2460:goto710
  63. 740 gosub960:gosub800:goto920
  64. 750 f$="2":goto740
  65. 760 f$="3":poke600,0:gosub970:gosub800:oncolgoto910,2130
  66. 770 f$="4":poke600,1:gosub970:gosub800:oncolgoto910,2130
  67. 780 f$="5":gosub980:gosub800:goto910
  68. 790 f$="6":gosub980:gosub800:goto910
  69. 800 print"":poke214,x-2:print:print"[152]  ($=directory m=menu)[145][145]"
  70. 810 poke19,32:print"[158]  enter seq filename :";:gosub60500:ff$=b$
  71. 820 ifff$="m"then510
  72. 830 ifff$<>"$"thensyscc:x1=34:return
  73. 840 close15:open15,8,15:ifff$="$"thenprint#15,"i":input#15,e,e$:ifethenprint"[147]":gosub1400
  74. 850 ifethen470
  75. 860 syscc:printchr$(142):sysmd:print:close15:open15,8,15:syscc
  76. 870 ifpeek(598)=34then470
  77. 880 x1=0:ff$=""
  78. 890 ff=peek(580+x1):ifff=34thenreturn
  79. 900 ff$=ff$+chr$(ff):x1=x1+1:goto890
  80. 910 open4,4,7:gosub1330:ifqqthen470
  81. 920 open2,8,2,ff$:gosub1390:on-(e<>0)goto470:gosub1050
  82. 930 close2:close4:sys65511:open15,8,15:x1=0
  83. 940 gosub1020:poke214,23:print:print"        [150] [208]ress f5 for the [205]enu [146]        [145]"
  84. 950 geta$:on-(a$<>chr$(135))goto950:goto470
  85. 960 forx=6to8:poke781,x:sys59903:next:return
  86. 970 forx=11to13:poke781,x:sys59903:next:gosub990:return
  87. 980 forx=16to18:poke781,x:sys59903:next:return
  88. 990 poke214,11:print:printtab(6)"1[146] or [154]2[146] columns?"
  89. 1000 getcol$:ifcol$<"1"orcol$>"2"then1000
  90. 1010 col=val(col$):return
  91. 1020 on-(s=0)goto2530:forl=54272to54295:pokel,0:next:poke54296,15:poke54277,8:poke54278,255
  92. 1030 poke54276,23:fory=1to3:f2=8:poke54273,2:forx=1to5:poke54287,f2:f2=f2*1.4
  93. 1040 next:next:forw=1to8:poke54287,f2:f2=f2*1.07:next:poke54278,15:return
  94. 1050 rp$="[208][210][201][206][212][197][210]":iff$="1"orf$="2"thenrp$="[210][197][193][196][197][210] "
  95. 1060 syscc:printchr$(14):print"[147]"tab(2)"[144]***********************************"
  96. 1070 printtab(2)"*    [198]"f$" [213][204][212][210][193][160][211][197][209]-[198][201][204][197][160]"rp$"    *"
  97. 1080 printtab(2)"***********************************"
  98. 1090 poke214,23:print:print"[200]old shift to pause - [208]ress f6 to abort[145][145]"
  99. 1100 fori=1to300:next:poke2,12:poke878,20:sysoc
  100. 1110 poke214,23:print:print"[150][200]old shift to pause - [158][208]ress f6 to abort[145][145]"
  101. 1120 onval(f$)goto1130,1140,1150,1160,1170,1180
  102. 1130 sysrp,40,0,0:x1=0:return
  103. 1140 sysrp,39,1,0:x1=0:return
  104. 1150 gosub1190:sysrp,40,0,1:x1=0:return
  105. 1160 gosub1190:sysrp,39,1,1:x1=0:return
  106. 1170 gosub1190:sysrp,80,0,1:xi=0:return
  107. 1180 gosub1190:sysrp,79,1,1:xi=0:return
  108. 1190 fori=1to5:print#4:next:return
  109. 1200 a=1-a:poke820,a
  110. 1210 goto2510
  111. 1220 poke198,.:wait198,1:forx=11to13:poke781,x:sys59903:next:print"[145][145][145][145]":goto460
  112. 1230 on-(s=0)goto2530:forl=54272to54295:pokel,0:next:poke54296,15:poke54277,8:poke54278,255
  113. 1240 poke54276,21:poke54287,40:forz=1tot:forf1=255to0step-6:poke54273,f1:nextf1
  114. 1250 forf1=0to255step50:poke54273,f1:nextf1:nextz:forf2=15to0step-.1
  115. 1260 poke54296,f2:next:poke54277,128:poke54278,250:return
  116. 1270 on-(s=0)goto2530:forl=54272to54295:pokel,0:next:poke54296,15
  117. 1280 poke54277,8:poke54278,255:poke54276,23
  118. 1290 forz=1to1:f1=10:fory=1to6:f2=30:poke54273,f1:forx=1to3:poke54287,f2
  119. 1300 f2=f2/1.2:nextx:f1=f1*1.5:nexty:forw=1to30:poke54273,f1
  120. 1310 poke54287,5:forv=1to5:nextv
  121. 1320 f1=f1/1.5:nextw:nextz:poke54278,15:return
  122. 1330 close4:ifst=0thenopen4,4,7:qq=0:return
  123. 1340 print"[150]      the printer is not on line"
  124. 1350 print"     turn it on, and press any key"
  125. 1360 print"        press f5 for the menu":gosub1270
  126. 1370 wait198,1:geta$:ifa$="[135]"thenqq=1:return
  127. 1380 open4,4,7:goto1330
  128. 1390 input#15,e,e$:ife=0thenreturn
  129. 1400 print"[147]         disk error encountered"
  130. 14